perm filename M2TEST.LSP[2,TES] blob sn#035510 filedate 1973-04-12 generic text, type T, neo UTF8
(DEFPROP TEST
 (LAMBDA NIL
  (PROG (X)
        (PRINTSTR (QUOTE "X = "))
        (PRINT (SETQ X (QUOTE ((A B C) (D E) NIL (F)))))
        (PRINTSTR (QUOTE "COLLECT = "))
        (PRINT
         (PROG (&V &L1 Y)
               (SETQ &L1 X)
          LOOP (COND ((NULL &L1) (RETURN &V)))
               (SETQ Y (CAR &L1))
               (SETQ &L1 (CDR &L1))
               (SETQ &V (APPEND &V Y))
               (GO LOOP)))
        (PRINTSTR (QUOTE "X = "))
        (PRINT X)))
EXPR)